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MODULE CLENUP ( 


ANTS. BLISS 
BEGIN 
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'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY : 
' DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


'@ 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
't ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


& 
® 
& 
® 
& 
® 
® 
® 
a 
® 
ie TRANSFERRED. 2 
® 
= 
® 
® 
od 
® 
® 
® 
® 
® 


'e 
!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i CORPORA ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBI 
!# SOFTWARE ON EQUIPMENT WHICH I 
it 
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LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


++ 

CiLITY: FIIACP Structure Level 2 

STRACT: 

: This module performs the necessary cleanup after en operation 
‘ 


& > 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 6=-Jan-1977 23:53 


v04-002 CDS0023 Christian D. Saether 15-Nov-1984 
Clear CLF_FIXFCB in err_cleanup when the file is deleted. 


v04-001 ACG0468 Andrew c. Goldstein, 18-Sep-1984 18:33 
Allow for quota file write access in last writer check 


v03-034 CDS0022 Christian D. Saether 30-Aug-1984 


fcdenct9R5 17:59:00 yarctt pLises37_y4-0-762 


$ 2 38 1! Allow for multi-header director files ‘ 

; 1} Have error cleanup remove possible bias on primary_fcb 
; ee . » ! refcnt. 

; 28 O0s¢ 1} v03-033 cps 0021 Christian D. Saether ¢3~ Aug-19 

; f Beez : Move code that marks FCB stale to a routine in otters. 
: §9 0069 1 i v03-032 cps0020 Christian D. Saether 13-Aug-1984 

: rs 44 ! 1 Add code to mark primary fcb stale clusterwide. 

: 6¢ 0068 1 : v03-031 cys $9019 Christian D. Saether 77-Aug-1984 

3 6 9 1! Cleanup poyent ia directory index cache block 

; ee On 1 : when deleting a file. 

: 66 007¢ 1! v03-030 CDS 9018 Christian D. Saether 1=Aug-1984 

; oF 0075 1! Modi fy, test for directory fcb. 

:; 668 0074 1! aad SET_DIRINDX routine. 

; «6469 0075 1! d NUKE _PRIM_FCB routine. 

; ey Boe ! } Mogite ZERO_16x routine. 

oe. 0078 1! v03-029 ACGO438 Andrew C. Goldstein, 19-Jul-1984 17:55 
ae 0079 1! Add cluster-wide special cache interlock logic. 

: 74 0080 1! foeeit ion DELETEACL calls on non-empty ACL. 

: ie sie ' Use central dequeue routine. 

;- 0083 71! v03-028 ¢D$0017 Christian D. Saether 25-May-1984 
a 0084 1! Call KILL_BUFFERS routine to flush cache in 

; He one? ! certain situations when not in a cluster. 

; 81 thd 1/ v03-027 CDS0016 Christian D. Saether 9-May-1984 

: 3 494 } Release allocation lock prior to calling send Yayabiont. 
: 84 0090 1! v03-026 cDS0015 Christian D. Saether 4-May-1984 

s 85 0091 1! No not map notrunc into nowrite. 

3 4 943 \ Add bugcheck if access lock conversion fails in make _deaccess. 
: 88 0094 1! v03-025 cDs0014 Christian D. Saether 3-May-1984 

; 6289 0095 1! Call CONV_ACCLOCK to remove possible access lack 

; 90 494 } } when dealTocating fcb's. 

; yy 0098 1: v03-024 cDS0013 Christian D. Saether 19-Apr-1984 

: 37 94 ! } Changes to FCBS$W_ ACNT handling. 

: 95 319) 1 V03-023 ACGO415 Andrew C. Goldstein, 5-Apr-1984 21:27 
: 38 18 ! : Interface hie to ACL _DELETEACL 

: 98 $102 1 i v03-022 ACG0408 Andrew C. Goldstein, 23-Mar-1984 11:20 
$ 100 O18 ! Make rest of global storage based 

: 101 107 1: v03-021 cosogi2 Christian D. Saether 9-Mar-1984 

5 105 \ i 53% in bug trap to H+ i possible double remque of 

: 104 110 1: 

; 105 111 71! v03-020 CDS0011 Christian D. Saether 23-Feb-1984 

: 106 116 1! Use new WRITE_DIRTY ating fe replace FLUSH “BUFFERS. 

: 10 113 1! Remove references fo F mt 

; 108 1144 1! Replace FLUSH_FID (0) with” Rice CACHE calls. 


16 
CHE MR BoJannt965 17:59:00 yaya Bl ises32_v4.0-742. 


Handle CURR_LCKINDX in pce Don't read 
headers without appropriate serial locks. 


v03-015 CDS0007 Christian D. Saether 14-Sep-1983 
Take out deqall hack now that RMS does it's own 
root locks again. 


109 11 
110 11 v03-019 CDS0010 Christian D. Saether 27-Dec-1983 
114 11 Use L_NORM Linkage. 
ig 1} Use BIND_COMMON macro to reduce external declarations. 
114 1 v03-018 CDS0009 Christian D. Saether 23-Nov-1983 
115 1 If DIR_FCB is the same as PRIMARY_FCB, do not return 
116 the Fe until the end of cleanup Tas PRIMARY_FCB, not 
118 1 Move cleanup of DIR_FCB until after all i/o is done. 
\% ; Remove REMOVE _FCB routine (kernel call not necessary). 
121 1 v03-017 LMP0164 L. Mark Pilant, 10-Oct-1983 15:22 
: ¢ ; Delete the in-core ACL if doing an FCB fixup. 
: : : v03-016 CDS0008 Christian D. Saether 3-0c¢ t-1983 
126 13 

sf 13 

8 13 

$3 13 

1 iH 

3 1 

33 
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Perform a DEQALL if file access lock dequeue faiis 
due to sublocks, then redo the file access dequeue. 


v03-006 LMP0071 L. Mary Pilant 19-Jan-1983 20:49 
Correct a problem that caused Act segments to be left laying 
around when a directory FCB was flushed. 


v03-005 ACG0308 Andrew C. Goldstein, 14-Jan-1983 15:02 
Fix FCB Linkage consistency problems 


v03-004 CDS0002 Christian D. Saether 33-Jan-1983 


wnt 
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v03-014 CDS0006 Christian D. Saether 27-Jul-1983 
3 1 Change interface to SEND_SYMBIONT. 
35 14 v03-013 LUK0199 Lawrence J. Kenah 27-Apr-1983 
#9 12 Do not credit FILCNT when giving back shared window 
3 14 v03-012 CDS0006 Christian D. Saether 28-Apr-1983 
4 12 Clear DIR_ENTRY when DIR_FCB is cleared. 
41 14 v03-011 CDS0005 Christian D. Saether 21-Apr-1983 
4 1? Change interface to TRUNCATE routine. 
44 15 v03-010 CDS0004 Christian D. Saether 19-Apr-1983 
45 15 Bug check on unexpected lock manager errors. 
3 13 Clear ACCLKID field in window. 
48 15 v03-009 ACG0323 Andrew C. Goldstein, 12-Apr-1983 14:09 
$2 1 Add extended file name to back Link fixup 
51 15 v03-008 $TJ3069 Steven T. Jeffreys, 23-Mar-1983 
26 13 Use the ERASE_REQUESTED parameter of RETURN_BLOCKS. 
2¢ 19 v03-007 CDS0003 Christian D. Saether 7-Mar-1983 
5 16 
35 16 
58 1 
59 1 
60 1 
62 : 
5 : 
64 1 
65 1 


K 16 
-Jan-1985 17:39: AX-11 Bliss-32 V4.0-742 
aes 15:23:99 F11X.BUGSRCICLENUP.B32;1 
Always flush header cache until it is restored for xap. 


¥03-003 LMP005S9 L. Mark Pilant, 21-Dec-1982 12:23 
atyeys create an FCB when accessing a file header. This 
eliminates a lot of special case FCB handling. 


v03-002 CDS0001 Christian D. Saether 10-Dec-1982 
MAKE _DEACCESS dequeues access lock. 


v03-001 LMP0036 L. Mark Pilant, 17-Aug-1982 10:45 
If the ACL was built using a dummy FCB, dismantle and 
deallocate the ACL. 


V02-024 ACG0259 Andrew C. Goldstein, 26-Jan-1982 19:12 
Add mode arg to REMOVE 


v02-023 ACG0247 Andrew C. Goldstein, 23-Dec-1981 20:26 
Make /NOCACHE flush all caches 


vO2=022 ACG0245 Andrew C. Goldstein, 23-Dec-1981 20:26 
Send spool file to print during cleanup 


vO2-021 ACG0244 Andrew C. Goldstein, 23-Dec-1981 20:14 
Do buffer flush before deallocating control blocks 


v02-020 LMP0003 L. Mark Pilant, 30-Nov-1981 16:40 
Properly cleanup any cathedral windows. 


v02-019 ACG0208 Andrew C. Goldstein, 11-Nov-1981 17:51 
Add segmented directory record support 


v02-018 ACG0168 Andrew C. Goldstein, 7-May-1980 18:22 
Fix last block directory clearup on delete failure 


v02-017 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:25 
Previous revision history moved to F11B.REV 
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LIBRARY gp eee JORARYs1 18,152"; 
REQUIRE ‘SRC$:FCPDEF .B32'; 
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FORWARD ROUTINE 

LEANUP : L-NORM, ! normal cleanu 

ZERO_WINDOWS : L-NORM, ! invalidate all windows of file 

ZERO_IDX : L-NORM NOVALUE , ! initialize directory index 
: L_NORA, : Cleanup after error 
3 ! clean out the file ID cache 

S 2 ! deaccess the file 
: ! deallocate extension FCB's 

ZERO_ CHANNEL au ! zero user channel pointer 
SET _BiRINDX : LIJSB_farG, _! test for directory index 
NUKE_HEAD_FCB =: LINORM NOVALUE; ! deallocate primary fcb 
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; 1 } 1 ! GLOBAL ROUTINE CLEANUP : L_NORM = 

3 i 1 18 1 lee 

5 4 1219 1! 

3 5 ! 9 ! FUNCTIONAL DESCRIPTION: 

5 2 1 § 1! This routine performs the cleanup needed after a successfully 
: : ? ! } Compteted file operation. 

3 0 1225 1 ! CALLING SEQUENCE: 

3 1 ! § : : CLEANUP () 

$ g 1228 1 ! INPUT PARAMETERS: 

: 1229 1! NONE 

; 5 1230 1! 

3 $3 1231 1 =! IMPLICIT INPUTS: 

$ H 1 § 1! CLEANUP_FLAGS: indicate specific actions to do 

: 238 1 1! PRIMARY_FCB: FCB of file 

; 239 1234 1! CURRENT_WINDOW: window of file 

: 240 1235 1! DIR_FCB: FCB of directory 

3s 261 1638 1! CURRENT VCB: VCB of volume in process 

; st rt H4 } IO_PACKET: 1/0 packet of request 

3 2446 1539 1 ! OUTPUT PARAMETERS: 

: 245 1240 1! NONE 

; 246 1241 1! 

3 247 1 $5 1 ! IMPLICIT OUTPUTS: 

; 248 12435 1! NONE 

3; 2469 fre: 1! 

; 250 1245 1 ! ROUTINE VALUE: 

: 251 1246 1! NONE 

; $26 744 17 

; @ 1248 1 ! SIDE EFFECTS: : 

3; 254 1249 1! FCB’s and windows deleted when appropriate 

3; 255 1250 1! header written 

: 256 1251 1! FCB updateu 

s gor 1536 1! 

; 258 12535 1 !-=- 

3 259 1254 1 

; 260 1522 BEGIN 

3 (gel 1256 

3 $o¢ ET 44 LOCAL 

; 26 1258 CLUSTER, ' are we a cluster 
3 +4 1623 QUOTA_CACHE : REF BBLOCK, ! address of quota cache 
3 265 1260 FCB : REF BBLOCK, ! locel FCB pointer 
3; 266 1261 vcB : REF BBLOCK, ! local VCB pointer 
: 267 1 ¢ RVT : REF BBLOCK, ! Local RVT pointer 
: 268 126 uCcB : REF BBLOCK, ! Local UCB pointer 
3 44 : f HEADER : REF BBLOCK; ! file header 

: 271 1 66 BIND_COMMON; 

: 7 126 

» ae 1 08 DIR_CONTEXT_DEF; 

3 274 1 § 

: 275 1270 EXTERNAL 

: 6 1$7) CLUSGL_CLUB : ADDRESSING_MODE (ABSOLUTE); 


"16 
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-002 
; 278 1273 EXTERNAL ROUTINE 
; 279 1274 MAKE _FCB STALE : L_NORM NOVALUE, ! mark fcb as stale clusterwide 
: 4 1275 KILL_BUF FERS : L-NORM NOVALUE, ! invalidate specified buffers 
3 1 1 6 KILL_ CACHE es) NOVALUE , ! invalidate all buffers for ucb 
: BS 127 WRITE DIRTY yu ‘ ' write all dirty buffers 
; 28 1278 SW1TCA_VOLUM + LENORM, ! switch to desired volume 
; Se ! a FLUSH_GUO_CACHE : L-NORM; ! flush the quota cache 
: 286 1281 
: 287 1 B , **eee Note: The primary header of the current file is not necessarily 
3 Hey : ? resident at this pint. 
: 90 1 és i Switch back to the primary context area if necessary (no normal cleanup 
3 33 : Hy is ever necessary on secondary context). 
: 29 1288 2. 
3 335 ' 34 gg TER ae NEQ 0 
: 296 1291 BEGIN 
3; 297 1 4 CHSMOVE (CONTEXT_SIZE, CONTEXT_SAVE, CONTEXT_START); 
3 338 ; 37 Santee! ae = 0; 
: 300 1295 . 
3; wl 1296 CLUSTER = 0; 
s 302 1297 IF .BBLOCK CCURRENT_UCB CUCBSL_DEVCHAR2], DEV$V_CLUJ 
: 308 138 rentn® *CLUSGL_CLUB NEC 0 
; 305 1300 CLUSTER = 1; 
; 07 1306 : Check the entire volume set to see if the index file or storage map 
; 308 1303 2 ! on any volume is write accessed. If so, flush the buffer pool of any 
: 309 1304 § ! of their blocks, and flush the file ID and extent caches as appropriate. 
: 311 1306 Also, if the volume is mounted /NOCACHE, flush the entire buffer cache. 
: 31 130 
: 313 1308 RVT = .CURRENT VCBCVCBSL_RVTI; 
HEAR g eacigoet 0 
; 316 1311 IF .RVT EQL .CURRENT_UCB 
. wer j \¢ 4 THEN (UCB = .RVT; 
; 319 131? ; gLSE -RVTCRVT$B_NVOLSJ 
: 330 1318 $7” BEGIN 
; 32¢ 1319 IF .RVT NEQ .CURRENT uce 
g i 1318 THEN UCB = .VECTOR CRVTCRVT$SL_UCBLSTJ, .J-1); 
3 $e 1326 IF .UCB NEQ 0 
; 1321 
; $$ 3 § 4 BEGIN 
F $8 1 ? ? vCB = .UCBCUCBSL_VCB); 
; 50 5 4 If J EQ. 1 
: 32 $ ; BEGIN 
: 33% 1 § ! If someone has the quota file write accessed (and it is active), flush it 
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QUOTA CACHE = .VCBCVCB$L_QUOCACHE); 
IF .Q00TA_CACHE NEQ 


— (QUOTA_CACHECVCASV_CACHEFLUSH]) 
BEGIN 
SWITCH. VOLUME (1); 
FLUSH GUO_CACHE (J; ! may create modified buffers 
END; : ! of this is RVN 1 (or single volume) 
If the volume is marked for dismount or nocache, flush out all the 
caches. 


IF .BBLOCK CUCB CUCBSL_DEVCHAR], DEV$V_DMT] 
a aca inten 


BEGIN 

SWITCH VOLUME (.J); 

WRITE BIRTY (0); 

KILL CACHE (.UCB); ! we cannot use the block cache after this 


Write modified buffers. The various cache purges above may have 
createc more dirty buffers than we had at the start of this routine. 
No more dirty buffers can be created for the remainder of this request. 


WRITE_DIRTY. (0); 


Invalidate any windows on the file, if requested. 


F _TESTBITSC (CLEANUP_FLAGSCCLF_INVWINDOW]) 
HEN KERNEL_CALL (ZERO_WIMNDOWS,”.PRIMARY_FCB); 


If a directory fcb is left tying about with no use, dispose of it. 

If the directory file is write accessed, flush the buffer pool of any 
blocks that might be resident. Also flush the directory index. 

Cleanup of these fcbs is deferred until all pegsiote errors in the 
cleanup procedure (i/o errors) have already had an opportunity to happen. 


IF (FCB = .DIR_FCB) NEQ 0 
THEN 


BEGIN _ ) 
IF .FCB CFCBSW_REFCNT) EQL 0 
THEN 


BEGIN 
IF _ .FCB NEQ .PRIMARY_FCB 
THEN 


Bsa 85 10:39:00 ree Bliss-32 V4.0-742 


F11X.BUGSRCICLENUP.B32;1 
from the buffer pool. (Note that the qucta file is located on RVN 1.) 
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1 
b-san-198 
“Oct-19 
IF NOT SET_DIRINDX (.FCB) 

THEN 


BEGIN 
DEL EXTFCB 


(.FCB); 
NUKE_HEAD_FCB (. 
END; 


FCB); 
END 
ELSE 
BEGIN 
IF .FCB CFCBSW_WCNT) NEQ 0 
THEN 
BEGIN 
SWITCH_VOLUME (.FCB CFCBSW_FID_RVNJ); 
IF NOT CLUSTER 


KILL_BUFFERS (1, .FCB CFCBSL_LOCKBASIS)); 
ZERO_IDX (); 
END; 
END; 
! Guarantee that no further attempts will be made to do any directory 
! related cleanup. This cleanup code was moved beyond the buffer 


: cleanup to avoid the same situation, but clearing the cleanup flags 
makes sure. 


CLEANUP_FLAGS CCLF_SUPERSEDE) = 0; 
CLEANUP“FLAGS CCLF-REENTER) = 0; 
CLEANUP-FLAGS CCLFTREMOVE) = 0; 
DIR_FCB™= 0; 
DIRTENTRY = 0; 
END; 

IF (FCB = .PRIMARY_FCB) NEQ 0 
BEGIN 


Check if the fcb has been modified and if so, and this is a cluster, 
cause potential fcbs on other nodes to be marked us stale so they 
will know to rebuild their fcb chains from the file header(s). 


IF .CLEANUP_FLAGS CCLF_MARKFCBSTALE) 
AND .CLOSTER 


EN 
MAKE_FCB_STALE (.FCB); 


! If an FCB is left about with no use, dispose of it. 
Check whether it is a directory fcb first. 


FCBLFCBSW_REFCNT) EQL 0 
IF NOT SET_DIRINDX (.FCB) 


If . 
THEN 


17 23:99 AX-11 Bliss=3 
12:43: F11X.BUGSRCICLENUP.B 


$2 


1 
-Jan-1985 17:39: AX-11 Bliss see ve 20 -742 
B-san- 1382 12: 23:98 F11X.BUGSRCICLENUP.B32; 1 
; 1444 3 THEN : 
: 450 1445 & BEGIN ; 
: 42) iaeo ¢ DEL_EXTFCB (.FCB) 
: 88 ata nepal perc : 
s 655 1450 4 6 - : 
: 656 1451 4 PRIMARY_FCB = 0; ; 
: 457 1458 3 END; é 
; 458 145 END; 3 
: 459 1454 ; 
; 460 1455 2 RETURN 1; ; 
: 46 1456 ; 
; 462 1457 1 END; ! end of routine CLEANUP 3 
.TITLE CLENU ; 
IDENT 1 64c002\ ; 
.EXTRN CLUSGL_CLUB, MAKE_FCB_STALE : 
XTRN KILL BOFFERS, KILC_CACHE ; 
-EXTRN WRITE_DIRTY switch: VOLUME : 
.EXTRN FLUSH~QUO_CACHE ; 
-PSECT $CODES,NOWRT,2 ; 
OBFC 00000 .ENTRY CLEANUP, Save R2,R3,R4,R5,R6,R7,R8,R9,.R11 = 1216 ; 
58 00006 CF 9E 00002 MOVAB SWITCH VOLUME, R11 — ; ; 
58 00DC CA 9E 00007 MOVAB g20 (BASE), RB + 1264 ; 
36 AA 05 0000C TSTL 4 (BASE) + 1289 ; 
8 13 O000F Fo. «Ss : ; 
6A 36 AA 6 28 99011 MOVC3 #54, S4(BASE), (BASE) :1 : : 
36 «AA D4 00016 CLRL  54(BASE) : 129 : 
59 D4 00019 18: CLRL CLUSTER > 1296 ; 
50 94 AA DO 0001B MOVL = OB BASE), RO : 1297 ; 
0B 3c «= AOs«éEY «OOOTE BLBC 60(RO) ; ; 
000000006 9F D5 00023 TSTL  a@A#CLUSGL_CLUB : 1298 ; 
03 13 00029 BEQL : ; 
59 01 00 00028 MOVL #1, CLUSTER ; 1300 ; 
50 98 AA D0 000 : 2$: MOVL -104(BASE), RO : 1308 ; 
52 20 Ad D0 000 MOVL 23 cR ), RvVT ; ; 
94 AA 52 D1 060 CMPL =e VT, 2108(BASE) > 1311 : 
Q 12 O003A BNE ; ; 
54 D 6 C MOVL = RVT, ye + 1312 : 
7 6 D F MOVL #1,°R ; : 
4 11 0 42 BRB 4 ; : 
57 0B Ag 9A 00044 3$: MOVZBL 11(RVT), R7 : 1333 : 
53 D4 00048 4$: CLRL oJ : 1309 3 
4A 11 O4A BRB 98 : ; 
94 AA i p 5$: CPL RVT, -108(BASE) : 1317 : 
54 40 A243 D0 6 MOVL  64(RVT)CJJ, UCB > 1318 
54 D 63: TSTL (B > 1319 
58 1 9 BEQL ; : 
55 3% AS OD B MOVL 52(UCB), VCB : 1333 
01 33 pt F CMPL ai : 1 
15 12 00062 BNEQ § : 


05 
13 


00006 
00006 


00006 


0000v 


08 


0000v 
0000v 


00006 
0000v 


00006 


oO 
oo 


OP OONMOWO NOMOOCOOCOCCOS 


2) FSM NS RSM SW NOS So 


=" 
co 


00 


: 
: 
; 
: 
| 
, 
: 


— 
MWS -D MOMM —-GII90 BNO OM WO NO MOMWO 9 - DW - CO MOM MNO NTO TNO VOMM a HNOM—o 


< 


DBOOWUDS OW & FPO 9 OWWOWN DF DS DOO" WNW D 9 WW FwWDoE# £ WO -O@MWouvwo 


SOW "WOM SO POP MON —* | 4O "WOW Wi" WOOW AI MO > 


eee 
-Oct-1 


As 
10$: 
2 


118: 


15$: 


MOVE 
BEQL 


ao 
te) 


Seer Sc onrre 
— Or Br ooo ron 


be 12:28:38 UMN teucsaeiccenveca ses 


3g (vee). QUOTA_CACHE 
aie 11 (QUOTA_CACHE), 7$ 


° pelien VOLUME 
i: Hae DBs ‘pes 


a3 cues}: 
n Sw1TCH_VOLUME 
wl gp} 
#1, WRITE_DIRTY 
ai, KIL CACHE 
tks 


Rf 
AR ite DIRTY 
BASEY, 10$ 


ASERO WINDOWS 
Sa det FCB 


24(rce) 
re, 8 (BASE) 
13$ 


~~ 4 
o 


FCB, RO 
SET_DIRINDX 
ets 

#1, DEL_EXTFCB 
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CLENUP b-Jan-198¢ 13: 73: 99 AX-11 Bliss-32 V4.0-742 


-002 “Oct-19 F11X.BUGSRCICLENUP.B32;1 
53 DD 00126 PUSHL FCB 
0000v CF 01 FB 00128 CALLS #1, DEL_EXTFCB 
53 DD 0012D PUSHL A 
0000v CF 01 FB OO12F CALLS NUKE _HEAD_F CB 
08 AA D4 001 CLAL B(éas 
50 01 DO 00137 168 MOVL ati 
04 0013A RET 


; Routine Size: 315 bytes, Routine Base: $CODE$ + 0000 


- 


—_- 


: 
CLENUP =jan-1985 17:39: AX=11 Bliss-32 vé.0-742 Page 12 
04-002 B-san-1985 Set ee Cat eS tater eh oe we 1 


: 464 1098 1 GLOBAL ROUTINE ZERO_WINDOWS (FCB) : L_NORM = 

> 465 14 1 

3; 466 1460 1 !+4¢ 

; 467 1461 1! 

>; 468 1006 1 ! FUNCTIONAL DESCRIPTION: 

3; 469 1465 1! 

; 470 1464 1! This routine invalidates all windows currently in use on the 
: ri 1082 : } indicated FCB. This routine must be executed in kernel mode. 
- O7 1467 1 ! CALLING SEQUENCE: 

: 474 1468 1! ZERO_WINDOWS (ARG1) 

; 475 168? 1! 

: 476 1470 1°! INPUT PARAMETERS: 

s 677 1471 1! ARG1: address of FCB 

; 478 by 1! 

: 479 1475 1 ! IMPLICIT INPUTS: 

3 ret} eee : CURRENT _WINDOW: address of caller's window, if any 

> 482 1476 1 ! OUTPUT PARAMETERS: 

; 483 1477 1! NONE 

3; 6484 1478 1! 

; «485 1479 1°! IMPLICIT OUTPUTS: 

: 486 1480 1! NONE 

3; 487 1481 1! 

: 488 be 1 ! ROUTINE VALUE: 

: 489 1483 1! NONE 

; 490 1484 1! 

3: 4491 1485 1 ! SIDE EFFECTS: 

: 492 1486 1! all windows marked empty, caller's turned 

: 493 1487 1! 

> 494 1488 1 !-- 

: 495 1489 1 

: 496 1490 2 BEGIN 

3: 497 1491 2 

: 498 1436 2 MAP 

: 499 1493 2 FCB : REF BBLOCK; 

; 500 1494 2 

; 501 1495 2 LOCAL 

: 502 1496 2 : REF BBLOCK, ' window pointer 

; 503 1497 2 DUMMY, ' dummy storage for REMQUE return 
; 504 1498 2 WINDOW SEGMENT : REF BBLOCK, ! pointer to window segment 
; td 1379 § NEXT_SEGMENT : REF BBLOCK; ! pointer to window after next one 
3 S07 1501 § BASE_REGISTER; 

: 508 1286 

; 509 150 § EXTERNAL ROUTINE 

: 219 1308 DEALLOCATE : L_NORM; ! deallocate dynamic memory 
; 512 1506 ! Loop through the window List off the FCB sereing all the retrieval pointer 
3; 513 1507 i counts. Then turn the user's window to VON 1 if it exists. 

3; «514 1508 ! 

s 315 1509 

3 21§ 4319 P = .FCBCFCBSL_WLFL); 

: 318 131¢ UNTIL .P EQL FCBCFCBSL_WLFLJ DO 

; 520 1514 PCWCBSW_NMAP]) = 0; 


ers a 


WI 


NT =, Luce tb 1m; 
» SEGMENT F:QL 


rororvrorory 


SEGMENTCWCBSL_LINK]; 
. T, DUMMY); 
‘ GMENT); 
® SEGMENT; 

END; 
PCWCBSL_LINK : 
PLWCBSV_COMP = 0; 
P = .PCQC 33 
END; 


! s#te® Note: When handling of window misses goes into its final form, 

! this routine must also scan the 1/0 queue on the UCB and look for 1/0 
! into the blocks just deallocated, All such requests must be yanked out 
! of the queue and routed to the ACP for error processing. 


RETURN 1; 
END; ! end of routine ZERO_WINDOWS 
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3; Routine Size: 64 bytes, Routine Base: S$CODE$ + 0138 


1 
=jan-1985 17:39: AX-11 Bliss-32 CLE 

f-Jan-1985 15:23:98 F11X.BUGSRCICLE ve 
; 133, GLOBAL ROUTINE ZERO_IDX : L_NORM NOVALUE = ; 
; 546 1539 1 !4¢ 3 
s Sér 1540 1! 3 
; 548 1541 1 ! FUNCTIONAL DESCRIPTION: F 
3; 549 1266 1! 3 
; 550 1943 1! This routine initializes the index in a directory FCB to an unknown : 
5 Dai 1308 - state. It will be rebuilt with the next several lookups. 5 
3 226 1eez : It also bumps the sequence count to indicate a change in contents. : 
3 6596 1547 1! 3 
> 3a. 1268 1 ! CALLING SEQUENCE: 3 
; 556 1549 1 | ZERO_IDX () ; 
s Sor 1550 1! 3 
; 558 1551 1°! INPUT PARAMETERS: 3 1 
s 559 1326 | NONE 31 
: 560 15535 1! $1 
; 561 1554 1 ! IMPLICIT INPUTS: 3 1 
; Jee 1555 1! DIR_FCB: directory FCB to init 3; 1 
3; 563 1556 1! 3 1 
3: 564 1557 1 | OUTPUT PARAMETERS: 3 1 
; 565 1558 1! NONE z 
: 566 1559 1! 3 1 
; 567 1560 1 ! IMPLICIT OUTPUTS: i: 1 
: 568 1561 1! NONE 3 1 
; 569 1562 1! 3 1 
; 570 1563 1 ! ROUTINE VALUE: 3 1 
, oT) 1564 1! 1 3 1 
3; 572 1565 1! : 1 
. S75 1566 1 ! SIDE EFFECTS: 3 7 
; 574 1567 1! directory index zeroed | 
s S75 1568 1! 3 3 
: 576 1569 1 !-- 3 7 
s Sr7 1570 1 3 7 
: 578 1571 2 BEGIN 37 
; 579 1572 2 37 
; 580 1573 BIND_COMMON; 31 
: 581 1574 s 1 
3; 582 1575 LOCAL 3 7 
$ 4 1226 § DIRINDX : REF BBLOCK FIELD (DIRC); : ! 
; 28? 1378 2 DIR_FCBCFCBSW_DIRSEQ) = .DIR_FCBCFCBSW_DIRSEQ) + 1; : ! 
; 2eF 1380 : (DIRINDX = .DIR_FCB CFCBSL_DIRINDX]) NEQ 0 : ! 
; 589 1382 DIRINDX CDIRC$W_INUSE] = 0; 3 1 
; 590 1583 . 
; «591 1584 1 END; ! end of routine ZERO_IDX 

ve * 00 eENTRY FRO IDX Sexe nothing 
50 00D cw 00 00008 ROVL B(BASES, R 
4 AO B8 0 INCW Bae ) 
50 00D0 CA 00 OO00A MOVL 8(BASE), RO 


Tae eae aa aaa ca acccaaacaa eee 


CLENUP B-an-1985 17:59:00 yARod1 Bl isss32_v4.0-742 
50 00B0 03 0 doors MOVL 176(RO), DIRINDX 
1 14 BEQL 1$ 
oO pt Doig Etmw Bi atNow 


; Routine Size: 25 bytes, Routine Base: S$CODE$ + 0178 


es ren ee ore ot Sk oe ee ee 
' CLENUP gu gon= 138? 15:33:90 AX-11 Bliss-32 V4.0-742 


| v04-002 F11X.BUGSRCICLENUP.B32;1 


: 93 1585 1 GLOBAL ROUTINE ERR_CLEANUP : L_NORM = 3s} 
3; 594 1288 1 3 3 
; 595 13 1 S44 eS 
> 596 1588 1! 3 1 
; 597 1589 1 ! FUNCTIONAL DESCRIPTION: $7 
; 598 1590 1! 3 7 
; 599 1591 1! This routine performs the cleanup needed after a file 37 
3 44 1238 : operation that has terminated in an error. 3 : 
; 60 1594 1 ! CALLING SEQUENCE: 3: 1 
: 60 1595 1: ERR_CLEANUP () : 1 
; 604 1396 1! 3 7 
; 605 1597 1 ! INPUT PARAMETERS: 3 } 
; 606 1698 1! NONE 3 7 
; 607 1599 1! 3; 
: 608 1600 1 ! IMPLICIT INPUTS: ; 3 3 
; 20? 1691 ! CLEANUP_FLAGS: indicate specific actions to do : : 
: 611 1808 1 ! OUTPUT PARAMETERS: ; 1 
; ol¢ 16046 1! NONE 3 
; 6! 1605 1! 3 7 
; 614 1606 1 ! IMPLICIT OUTPUTS: 3 7 
s 615 1607 1! NONE 5 7 
; 616 1608 1! $3 
; 617 1609 1 ! ROUTINE VALUE: 3 7 
; 618 1610 1! NONE 3 7 
: 619 1611 1! 3 Y 
: 620 16l¢ 1 ! SIDE EFFECTS: 3 7 
: 621 1613 1! file deaccessed if necessary 3 3 
: 622 1614 1! channel window pointer cleared : 1 
: 625 1615 1! 37 
; 624 1616 1 !-- 3; 
: 625 1617 1 3 7 
; 626 1618 § BEGIN 37 
3. Ger 1619 3 
> 628 1620 2 BIND_COMMON; 71 
: 629 1621 3; Y 
: 630 1622 2 DIR_CONTEXT_DEF; i | 
: 631 1623 3; 
s 632 1624 2 EXTERNAL ROUTINE $7 
3: 633 1625 2 REBLD_PRIM_ FCB =: L_NORM NOVALUE, ! rebuild primary fcb from header 3 Y 
+ 634 16 § 2 BUILD-EXT FCBS : L-NORM NOVALUE, ! build extension fcb chain 3; 7 
: 635 16 ALLOCATIORN_UNLOCK :~L_NORM NOVALUE, ! release allocation Lock 3 3 
: 636 1628 KILL_DINDX : L_NORM NOVALUE | ! release directory index block 3 7 
; 637 1629 END_ SUB : LINORM, : end metering of current subfunction 71 
; 638 1630 LOSE _FILE : LINORM, ' close internal file 37 
: 639 1631 DEACC OF ILE : LINORM, ! deaccess the quota file 3 3 
: 640 1636 DEALLOCATE : L_NORA, ! deallocate Prneate memory 3 7 
: 641 163 SEND_SYMBIONT : L-NORM ADDRESSING MODE (GENERAL), 3 
3 one 1634 ' send file to job controller 3% 
3: 64 1635 SWITCH VOLUME =: L_NORM, ' switch to desired volume 3 7 
3 644 1636 RESTORE DIR : LINORM, ! restore directory context 3 3 
3: 645 1637 § DIR_SCAR : LINORA, ' scan directory file 3 7 
3: 646 1638 MAKE_ENTRY : LINORM, ' create new directory entry 3 
3: 647 1639 REMOVE : LINORM, ' remove a directory entry 3 1 
; 648 1640 READ_BLOCK : LINORA, ! read a disk block ; : 7 
3; 649 1641 MARK_DIRTY : LINORM, ! mark disk block for write back ; t 


1 
-Jan-1985 17:39: AX-11 Bliss-32 V4.0-742 Pa 17 
B-ganc|99s 12:28:00 YAMGT! BL isess2,v4s0c742 ey 
; 650 1 WRITE BLOCK : LNORM ! write a disk block 
; 651 1 DELETE_FILE : LINORM, ' delete a file 
3. 652 1 DELETE_FID : L_NORM, ! delete a file number 
3001 !cpso0023 1 RETURN BLOCKS : LLNORM ADDRESSING_MODE (GENERAL), ! return blocks to storage map 
> 654-1 1 TRUNCATE _y™ ° ! file truncate routine 
3 39 1 INVALIDATE : L_NORM, ! invalidate a buffer 
; 656 1 READ HEADER : LLNORM, ' read file header 
3; 6o7 1 CHE CRSUM : L-NORM, ' checksum file header 
: oe8 ; REMAP_F ILE : LUNORM; ! rebuild the windows for a file 
: 660 1 
; 60) } ; If a subfunction was being executed, turn off metering now. 
; rae: 1 2 
> 664 1 2 IF .PMS_SUB_NEST NEQ 0 
; 665 1 ¢ THEN 
; 666 1 BEGIN 
: 667 1 3 PMS_SUB_NEST = 1; 
; 668 1 3 PMS_END_SUB (); 
> 669 1 2 END; 
; 670 1 2 
: 671 1 2 ! We repeat the entire procedure twice if a secondary file operation was 
; ore ; 5 in progress (indicated by non-zero saved context). 
: 674 1 2 
> 675 1667 WHILE 1 DO 
; 676 1668 BEGIN 
s Or? 1669 
: 678 1670 3 ! Locals are declared here to prevent their scope from extending around the 
; 679 1671 3 ! entire main loop and raising havoc with register assignment. 
; 680 1006 3! 
; 681 1673 3 
3; 682 1674 3 LOCAL 
; 683 1675 3 NAME _DESC : BBLOCK CFND_LENGTH], ! file name descriptor block 
: 684 1676 3 HEADER : REF BBLOCK, ! address of file header 
: 685 1677 3 IDENT_AREA : REF BBLOCK, ! ident area of file header 
; 686 1678 3 FC : REF BBLOCK, ! FCB pointer 
3; 687 1679 3 WINDOW SEGMENT : REF BBLOCK, ' address of the next window segment 
3; 688 1680 3 NEXT_ SEGMENT : REF BBLOCK, ! address of one beyond the next window 
: 689 1681 3 RECABDR : REF BBLOCK ! address of directory record 
: 690 lone 3 DIR_FLAGS : BITVECTOR (321, ' directory cleanu fogs 
: 691 168 UNREC_LOCAL, : local copy of UNREC_COUNT 
: 692 1684 FID_LOCAL, ' local copy of NEW_FID 
; 693 168) T1, ! random temps 
3 694 1686 Vee 
3; 695 1687 13; 
: 696 1688 ° 
; 697 1689 ! Show that cleanup is in progress. 
; 698 1690 : 
; 699 1691 
; oe 1936 CLEANUP_FLAGSCCLF_CLEANUP) = 1; 
; 702 1694 ! If the ref count on the primary fcb was biased in fid_to_spec, remove 
; 703 1695 ! the bias. 
: 704 1696 : 
; 705 169 
; 706 1698 IF TESTBITSC (CLEANUP_FLAGS CCLF_PFCB_REF_UP]) 
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PRIMARY_FCB CFCBSW_REFCNT] = .PRIMARY_FCB CFCBSW_REFCNT) = 1; 
If an internal file is open, close it first. 


THE 


IF TESTBITSC (CLEANUP_FLAGSCCLF CLOSEF ILE) 
THEN CLOSE_FILE (.CURRENT_WINDOQ@) ; 


Invalidate the file ID cache, if necessary. 

IF TESTBITSC (CLEANUP_FLAGSCCLF_FLUSHFID)) 

THEN KERNEL_CALL (FLUSH_FIDCACHE); 

! Deaccess the quota file, if we were in the final stages of a quota file 
enable. 

IF TESTBITSC (CLEANUP_FLAGSCCLF_DEACCOQFILE)) 

THEN KERNEL_CALL (DEATC_OQFILE); 

} If there is a file header resident, it probably needs to be checksummed. 
IF .FILE_HEADER NEQ 0 

THEN CHECKSUM (.FILE_HEADER); 

Clean out the window pointer in the user's channel if necessary. 

IF TESTBITSC (CLEANUP_FLAGSCCLF_ZCHANNEL J) 

THEN KERNEL_CALL (ZERO_CHANNEL); 

If there are unrecorded blocks allocated from the storage map, return them. 


IF (UNREC_LOCAL = .UNREC_COUNT) NEQ 0 
THEN 


UNREC COUNT = 0; 
SWITCR_VOLUME (.UNREC_RVN); 

+ aa sattaae (.UNREC_LBN, .UNREC_LOCAL, DO_NOT_ERASE); 
! If there is a dangling file ID (from a partial create or header extension), 
dispose of it. 


If (FID_LOCAL = .NEW_FID) NEQ 0 
THEN 
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: Get back the primary file header of the file in process. 


1 Bliss ze V4.0-742 


-1 - 
1X.BUGSRCICLENUP.B32; 1 


AD 
If . 
HEN 


0: 
H 


LE_HEADER NEQ 0 


G 
L 


HE 
T = 


E 

IN 
E_HEADER = 0; 

CCURR_LCKINDX = .PRIM_LCKINDX) NEQ 0 


HEADER = READ_HEADER ((IF .CURRENT F1e NEQ 
THEN CURRENT_F IBLF IBSW_ 


L ‘ 
.PRIMARY_FCB); 
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END; 

Send the file to the job controller if it is tn be spooled. 


IF TESTBITSC (CLEANUP_FLAGSCCLF _DOSPOOLI) 
BEGIN 


1 Make sure the allocation lock is released before sending it 
to the symbiont to avoid potential deadlock with the symbiont. 
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ALLOCATION_UNLOCK (); 
SEND_SYMBIONT (.HEADER, .PRIMARY_FCB); 


Deaccess the file if requested. 

IF TESTBITSC (CLEANUP_FLAGSCCLF_DEACCESS)) 
THEN KERNEL_CALL (MAKE_DEACCESS); 

Deallocate the window block if called for. 


— (CLEANUP_FLAGSCCLF _DELWINDOW]) 


IF .CURRENT_WINDOW NEQ 0 
THEN 


BEGIN 
+ ates erate = CURRENT _ WINDOW; 
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BEGIN 
NEXT SEGMENT = WINDOW SEGMENTCWCBSL_ I. INK]; 
KERNEL CALL (DEALLOCATE, .WINDOW SEGMENT); 
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06 WINDOW_SEGHENT = NEXT_SEGMENT; 

808 UNTIL .WINDOW SEGMENT EQL 0; 

809 CURRENT_WINDO@ = 0; 

319 END; 

812 ! Fix the file header back Link, if it was modified. 
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ESTB 


ANUP_FLAGSCCLF _FIXLINK]) 
EQ 0 


S$ 
I 
BE 
CHSMOVE (FIDSC_LENGTH, PR 
IDENT_AREA = .READER + .H 
CHSMOJE (MINU ar 
IDENT_AREALF 12$ 
CHSMOVE (MINU TFILENAM 
PREV ; 


ADERCFH2$W_BACKLINK]); 
IDOFFSETIJ¥2; 
-FILENAME), PREV_INAME, 
FI 


LENAME, FI2$S_FILENAMEXT), 


mmr 


NAME +F J 


IDENT 
CHECKSUM (.HEABER); 
MARK DIRTY (HEADER); 


t 
LE 
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a file deletion is called for, do it. This is either a create that 
iled later on, or a real delete. 


Mm ad (CLEANUP_FLAGSCCLF _DELFILEJ) 


F HEADER NEQ 0 


BEGIN 
IF jPRIMARY_FCB NEQ 0 
C sPRIRARY PCO CFCBSL_DIRINDX] NEQ 0 
KILL_DINDX (.PRIMARY_FCB); 
CLEANUP_FLAGSCCLF _ TRUNCAT is 0; ! mo truncate necessary after a delete 


CLEANUP-FLAGS CCLF_FIXFCB) = 0; ! no fcb fixup ever necessary after delete 
DELETE _FILE (. CURRENT_F IB, -HEADER); 


If an extend operation failed, truncate the file. 


IF TESTBITSC (CLEANUP_FLAGSCCLF_ TRUNCATE) 
ee IF .HEADER NEQ y 


| 

Ti = .CURRENT_F IBCFIBSL_EXSZ); ! save the data returned by EXTEND 
= . CURRENT F1B FIBSLTEXVEN); i so it won't be smashed by TRUNCATE 
= .USER STAT 1); 

CURRENT _FIBCFIBSL_EXS2) = 0; 

TRUNCATE (.CUR NT AFB. -HEADER, .12); 


xS2) = 11; 


a: ! follow buffer shuffling 
LIEXVEN) = 12; 

Fi] 

R 


NVWINDOW) = 0; ! windows were never extended, so no need 
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! Various errors leave the file control block screwed up. If needed, 


4.0-742 
UP .B32;1 


2 
= 36-1985 17:3 AX-11 Blis 
b-Jan-1945 19h. ioieeioy || PANT A Bt sss 


<p 
3s 


32 v4.0-742 ° : 
CLENUP.B3251 age ¢} 


~ 
—— 


H rebuild it and its extensions from scratch. 
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G2 cD CD CD 


IF TESTBITSC SCLEANUP_PLAGSCCLE _FIXFCBI) 
AND .HEADER NEQ 


Boo 


N 

BEGIN 

REBLD_PRIM_FCB (.PRIMARY_FCB, .HEADER); 
BUILD_EXT_FCBS (. HEADER); 

END; 


2.09 C9 0D CD CD CD: 
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SSSSSse 


Cleanup any cathedral windows which have broken. 


IF TESTBITSC (CLEANUP_FLAGSCCLF_REMAP]) THEN REMAP_FILE (); 


! Do directory operation cleanups. We could have entered a new file, removed 
old one, or both, or done a supersede. A supersede is a replacement of 
the FID for the same name, type, and version. 
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; 1 : 
3 1 3 
3 1 3 
. 1 4 D4 
_ 1 4 $ 
3 1 4 ; 
5 1 4 3 
: 1 4 $ 
3 1 3 
; 1 3 
3 1 ; 
3 1 3 
3 1 ; 
; 89 1 3 
: 1 3 
; 1 3 
PY 1 $ 
; 1890 3 
; 898 1891 3 
: 899 189 : 
: 301 } 3 FLAGS LE ANP FLAGS 
. “if =, Py 
; 90¢ 1895 3 CLEANUP_FLAGSCCL f Ss UPERSEDED = 0; ; 
: 90 1 98 CLEANUP_FLAGS(CLF_REENTER 0; 3 
3 o8e : , CLEANUP_FLAGSCCLF-REMOVE) = 0; : 
3 206 1 38 If .DIR_FLAGSCCLF ~pyeenene? ; 
: 90 1 OR .DIR_FLAGS(CLF_REENTER 3 
; 908 1901 OR .DIR_FLAGSCCLF_REMOVE) ‘ 
: 909 1 ¢ THEN 3 
: 910 1 & BEGIN F 
3 ay 1398 2 SWITCH VOLUME (.CURRENT_FIBCFIBSW_DID_RVN)); : 
; 318 1208 4 ! Buffer pool thrashing may have kicked out the directory block we need. : 
3 3i3 1908 2 } re-read it and recompute the buffer pointers. : 
3 aig 1 4 3 
3; 9 1910 4 IF .DIR_ENTRY NEQ 0 3 
3 3i3 +4 ? THEN RESTORE_DIR (DIR_CONTEXT); : 
; 920 1918 4! a Gtrpctery cntry needs to be removed, do so. Pointers are all set 3 
: 921 19146 4! A for the REMOVE routine. é 
3; 9 ; 1915 4! 3 
; 9 1916 & 3 
: 926 1917 «4 iV. -DIR PLAss 7 REMOVE) : 
3 4 5 13i3 7 HEN REMOVE : 
:; 9 $ 1920 4! Ife directory mere a to ee re-entered, do so. If the antes was : 
3; F 1321 4 ! removed theoug an Guten purge, we need to rescan to the point o : 
: 9 19 ; 4 | removal epee a directory shuttle may have invalidated the ; 
3; 9 19 4 ! pointers. Construct a name Y eoscripter rom the saved name and version FY 
; 931 1926 4 ! and ca.l the enter routine. 3 
3; 9 4 1925 4! 3 
; 9 1926 & 3 
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meth. NAM 
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MAK R C, .CURRENT FIB); 
CLEARUP FLAGSCCLF REMOVES = 6 = 
wR OCK ¢ B 


! A supersede cleanup consists simply of replacing the superseded file ID 
! in the directory record. Note that the supersede bit could also be set 
! by @ create/auto-purge, which also sets the remove and enter bits, and 
} is handled above. 


SCCLF 
FLAGS 
-FLAGS 


CLF _REEN 
CLF _REMO 


<—w 


CL FCLFREEN 
LA 
LA 


ER) 
E) 
DIR_VERSIONC ION; 

CHSMOVE (F IONCDIRSW_FIDJ); 

MARK_DIRTY 

END 

END; ! end of directory cleanup processing 


! Copy the saved context, if any back into the primary context and repeat 
the cleanup. 


IF . CONTEXT SAVE EQL 0 THEN EXITLOOP; 

CHSMOVE (CONTEXT SIZE, CONTEXT_SAVE, CONTEXT_START); 

CONTEXT_SAVE = 0; 

END; ! end of major loop 

RETURN 1; 

END; ! end of routine ERR_CLEANUP 


-EXTRN REBLD_PRIM_FCB, BUILD_EXT_FCBS 
-EXTRN ALLOCATION~UNLOC 
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; 19 3 024 | ROUTINE MAKE DEACCESS : L_NORM = 

> 1035 1 !4 

:4 097 1! 

3; % 1 ! FUNCTIONAL DESCRIPTION: 

31 : 0 1! 

3 18 3 , : This routine performs the machinery for deaccessing a file. 

: 1043 ; 1 | CALLING SEQUENCE: 

3 1sr¢ Z : MAKE _DEACCESS () 

> 1064 5 1 | INPUT PARAMETERS: 

: 1943 0 : : NONE 

: 1909 O38 1 ' IMPLICIT INPUTS: 

: 1048 B 13 PRIMARY _FCB: FCB of file 

3 1908 S. a CURRENT _WINDOW: window of file 

: 1939 ee : } CURRENT_VCB: VCB of volume in process 

: 1058 b¢8 1 | OUTPUT PARAMETERS: 

1080 Oe$ 1 i ave 

5 1055 046 1 | IMPLICIT OUTPUTS: 

3 1036 8 1! NONE 

; 105 ; 1! 

1089 BG Baca # prog 

> 1060 051 1: 

3; 1061 O26 1 ! SIDE EFFECTS: 

: 1006 Bez : file deaccessed 

> 1064 055 1 ine 

; 1065 28 1 

; 1398 B2 BEGIN 

; 1068 $39 BIND_COMMON; 

; 199 O61 LOCAL 

: 1071 § : REF BBLOCK, ' Local for primary fcb. 

3 1076 se LCKMODE ' Lock mode for access lock. 

: 107 WINDOW SEGMENT : REF BBLOCK, address of the next window segment 
: 24 5 DUMMY; ! dummy local to receive REMQUE 
1 26 EXTERNAL 

: 107 PMS$GL_OPEN : ADDRESSING_MODE (ABSOLUTE); ? 
3 : 8 390 ! system count of currently open files 
: 1080 4 EXTERNAL ROUTINE 

; 1081 % DEQ LOCK : L_NORM, ' dequeue a lock 

: 54 07 COND_ACCLOCK : LINORM ! Convert file access lock. 

; 1 Or LOCK"MODE : L7JSB_{ARG; / Calculate access lock mode. 

: 1386 iH FCB = .PRIMARY_F(B; 

: 108 78 ! Unlink the window from the FCB. Clear the applicable access conditions 
: 1988 344 ' in the FCB. 

; 1089 80 ? 
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F11X.BUGSRCIC 
WINDOW. SEGMENT = .CURRENT_WINDOW; 
BEGIN 
IF WINDOW SEGMENTCWCBSL_WLFL] NEQ 0 THEN REMQUE (.WINDOW SEGMENT, DUMMY); 
WINDOW, SEGRENT s IWINDOWZSEGRENT EUCBSL FINK, z: 
UNTIL .WINDOW SEGMENT EQL 0; 
IF NOT -CURRENT_WINDOW CWCBSV_NOACCLOCK] 
BEGIN 
IF . CURRENT WINDOW(WCBSV_NOREAD } 
THEN FCBCFCBSV_EXCL) = 0; 


IF_ .CURRENT WINDOWCWCBSV_NOTRUNC] 
THEN FCBLFCBSW_TCNT) = .PFCBCFCBSW_TCNT] = 1; 


IF ere WINDOWCWCBSV NOWRITE) 
THEN FCBCFCBSW_LCNT) = .PCBCFCBSW_LCNT) = 1; 


FCB CFCBSW_ACNT) = .FCB CFCBSW_ACNT) = 1; 

END; ! of normal (mot NOLOCK) deaccess. 
FCBCFCBSW_REFCNT) = .FCBCFCBSW_REFCNT) - 1; 
! For a write access, bump down the writer count. If this is the 
' Last write, and the tile is the index file or the storage map, clear 
! the ropriate flag in the VCB. If there's a cache lock being heid 
for this file, release it. 
IF CURRENT _WINDOW(WCBSV_WRITE) 
THEN 

BEGIN 

if NOT .CURRENT_WINDOW CWCBSV_NOACCLOCK) 

FCBCFCBSW_WCNT) = .FCBCFCBSW_WCNT) - 1; 


IF .FCBCFCBSW_WCNT) EQ 0 
OR (.FCBCFCBSQ WCNT) LEQU 1 AND .FCB EQL CURRENT _ yCOLYCBSL QUOTAF(B)) 
a” WCBSV_WRITE)) 


BEGIN 
FCBCFCBSB_FID_NMX) EQL 0 


BEGIN 
IF .FCBCFCBSY FID NUR) EQL 
THEN CURRENT OCBCOUCBS¥_WRITE_IF} = 0; 
F .FCBLF CBSO FID ONURI-EQt 
HEN CURRENT_QCBCOCBSV_WRITE_SM) = 0; 


END; 
IF .FCBLFCBSL_CACHELKID) NEQ 0 
THEN 

BEGIN 


CB CFCBSQ_REFCNT) EQL 0 AND .CURRENT_WINDOW 
I 
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IF Fee CFCBSW_ACNT) EQL 0 
LCKMODE = LCKSK_NLMODE 

ELSE 

ACCTL; 

CCTL = F 

.FCB CRCBSW_WCNT) NEQ 0 


A 
IF 
THEN ACCTL = .ACCTL + FIBSM_WRITE; 
IF .FCB CFCBSW_LCNT] NEQ 0 

THEN ACCTL = .ACCTL + FISSM_NOWRITE; 
LCKMODE = LOCK_MODE (.ACCTL); 


E 
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! If the new access lock mode lock for this fzb is different (lower) 
! than the current lock, convert it. The conversion routine will also 
dequeue the lock if this is the last reference. 


Mr Ta al 
N 7 
IF NOT CONV_ACCLOCK (.LCKMODE, .FCB) 
BUG_CHECK (XQPERR, ‘deaccess conversion failed’); 
; pote, We now have a file control block with a possible zero access count 


the FCB List. This gets dealt with by the general cleanup. 
PMSS$GL_OPEN = .PMSSGL_OPEN =- 1; ! bum 
CURRENT_VCBCVCB$W_TRANS) = .CURRENT_VCBLVCBSw 
RETURN 1; 

END; ! end of routine MAKE_DEACCESS 


p down count of open files 
TRANS) = 1; 
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-EXTRN PMSSGL_OPEN, DEQ LOCK 
-EXTRN CONV_ACCLOCK, LOCK_MODE 
-EXTRN BUGS—XQPERR 


Q00C 00000 MAKE _DEACCESS: 
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GLOBAL ROUTINE DEL_EXTFCB (START_FCB) : L_NORM = 
ee 
' 

FUNCTIONAL DESCRIPTION: 


This routine removes and deallocates all extension FCB's, if any, 
Linked to the indicated FCB. 


CALLING SEQUENCE: 
DEL_EXTFCB (ARG1) 


INPUT PARAMETERS: 
ARG1: address of primary FCB or 0 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
FCB's 


FE 
CB's deallocated 


BEGIN 


MAP 
START_FCB : REF BBLOCK; 


FCB argument 


LOCAL 
FCB : REF BBLOCK, 
NEXT_FCB : REF BBLOCK, 
Pp : REF BBLOCK, 
DUMMY; 


BASE REGISTER; 


EXTERNAL ROUTINE , 
DEALLOCATE : L NORM; ! deallocate dynamic memory 


! Checking for null pointers, find the first extension FCB. Follow the extension 
: List and remove and deallocate the extension FCB's, cleaning out the pointers 

on the way. For each FCB removed, we must find the VCB (by chasing around the 
i 


running FCB pointer 

next extension FCB 

pointer to chase for VCB 
dummy local to receive REMQUE 


FCB List) and decrement the transaction count. 


Jf -START FCB EGLO THEN RETURN 1; 
FCB = START FCB FCBSL Ex? CB); 
START_F CBCFCBSL_EXFCB)~= 0; 


3 
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; Routine Size: 72 bytes, Routine Base: S$CODE$ + 053D 


: ' 53 re UNTIL FCB EQL 0 DO ; 
; 33 46 NEXT_FCB = .FCBCFCBSL_EXFCB); : 
: 1257 48 “FB FCBSL FCBE 1; : 
1258 49 mit Fey QL DYNSC_VCB ; 
> 1259 50 ei Ptr Ce aC ree ; 
: 1260 31 PLVCBSu_ TRANS) = cPLVCBSU_TRANS] = 1; ; 
:1 6¢ 3§ ifr eatt EXFCB) = ; 
; 1 63 24 FCB CFCBSB_ TYPE) NEQ DYNSC FCB ; 
: 1265 23 BUG CHECK (NOTFCBFCB, ‘not feb"); F 
> 1266 57 REMQUE T.FCB, DUMMY); ; 
> 1267 58 DEALLOCAT E (FCB); ; 
: 1268 59 FCB = .NEXT_FCB; ; 
3: 1269 60 D; 3 
: 1270 361 : 
: 1271 6¢ RETURN 1; ; 
3; 7 Le: 26 3 
; 127 2264 1 END; ! end of routine DEL_EXTFCB : 
.EXTRN BUGS_NOTFCBFCB ; 

003¢ 99000 .ENTRY DEL_EXTFCB, Save R2,R3,R4,R5 : 2187 3 

50 04 ac 09 002 MOVL START FCB, RO : 2241 3 

3¢ 1 9006 BEQL ‘ : ; 

53 0c AO 00 000 MOVL 12(RO) FCB : 43 ; 

OC Aad D4 $000C CLRL =: 2 (RO) > 226 : 

; D 9000 1$ TSTL FCB + 2264 ; 

1 13 00011 BEQL «=séS$ : ; 

54 0c Ad D 0013 MOVL 12(FCB), NEXT_FCB : 226 : 

52 63 D0 0001 MOVL (FCB), P + 226 : 

11 OA , 1 O01 2$ CAPE JOC), #17 + 2249 ; 

52 62 b8 80 5 MOVL (P), P : 2250 ; 

F5 11 000 ° BRB 2$ : : 

0c A2 87 3$ DECw  12(F) : 2251 F 

OC A ps 0028 CLRL  12(FCB) > 2253 ; 

07 OA A3 91 00028 CMPB =s«10( FCB), #7 : 2254 : 

04 13 0002F BEQL © 4$ : ; 

Fete 0 BUGW > 2256 ; 

000* .WORD <BUGS_NOTFCBFCB!4> : : 

55 : OF 0 4$: REMQUE (FCB)> DUMMY ; 3257 : 

DD 0 PUSHL FCB : 2258 ; 

00006 CF 01 FB 003A CALLS #1, DEALLOCATE ; : 

53 4D 90 A MOVL NEXT_FCB, FCB : 2259 3 

50 §F D0 dooce 5s ore, oT. RO : $583 ; 

ry 0047 RET 3 $f ; 
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ROUTINE ZERO_CHANNEL : L_NORM = 


'ee 
' 


i FUNCTIONAL DESCRIPTION: 


This routine zeroes out the window pointer being returned to 

the user for his channel control block. It also credits one to the 
user's open file quota, except for the case of a shared window. 
This routine must be executed in kernel mode. 


CALLING SEQUENCE: 
ZERO_CHANNEL () 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
IO_PACKET: 1/0 packet of request 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
channel window pointer cleared, file quota bumped unless shared window 


ARENL SOLS ASA RG LO Oe ae MR OH OOO 


LOCAL 
og : REF BBLOCKVECTOR C,ABDSC_LENGTH), 
0 ' buffer descriptors 
04 J18 : REF BBLOCK, ! Job information block address 
05 PCB : REF BBLOCK; ! address of user process control block 
¢ EXTERNAL 


SCHSGL_PCBVEC : REF VECTOR ADDRESSING_MODE (ASSOLUTE); 
! system PCB vector 
BIND_COMMON; 


: painter to pul ter descriptors 
-BBLOCK C.10 BDSu COUNT} S42 AIBSL_DESCRIPTI; 


ABD 
ABDCABD C_WINDOW, ABD$W_ COUNT) = 
-ABDCABDST_WINDOW, ABDSO_TEXT] + ABDCABDSC_WINDOW, ABDS$W_TEXT] + 1 = 0; 


BEGIN 
! The FILCNT quota is credited if a WCB has not yet been allocated or 
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ets i 13:23 99 ff FIIX. ang REICLENUP 
! if the SHRWCB bit is not set in the WCB. 
IF _ CURRENT WINDOW EQL 0 
THEN 
ELSE NOT .CURRENT_WINDOW(WCBSV_SHRWCB) 
THEN 
BEGIN 
PCB = .SCHSGL pcevect . (1O_PACKETCIRPSL_P1D])<0, 16>); 
PCBCPCBSL_JIBJ: 
1c 168u. FILCNT] = .JIBCJIBS$W_FILCNT) + 1; 
RETURN 1; 
END; ! end of routine ZERO_CHANNEL 
-EXTRN SCHSGL_PCBVEC 
0000 00000 ZERO_CHANNEL : 
WORD Save nothing 
50 90 AA 00 00002 MOVL =| 12(BASE) RO 
51 2c ac DO 60006 MOVL @44(R0), ABD 
02 Al 0 99 A MOVW #4, 2(ABD) 
50 61 3¢ MOVZWL (ABD) RO 
01 A140 9F 0001 PUSHAB 1(ABDSCROJ 
9E D4 13 CLRL = @( SP) + 
50 OC AA p 1 MOVL 12(BASE), RO 
3 (1B BEQL Ss 
1D 0B a0 E 1 BBS #3, 11(RO) 
51 000000006 “Ff »D 1$ MOVL a7SCHSGL bépvec, R1 
30 90 Ad DO 000 MOVL <=112(BASE), RO 
0 0c g 00 ADDL2 #2 RO 
0 4 C MOVZWL (ROS, RO 
0 614 06 mov.  (R1)EROJ, PCB 
0 0080 C MOVL 1eBcBcR) , JIB 
AO 58 C INCW  48(JIB) 
50 01 f 28: MOVE #1, RO 


; Routine Size: 67 bytes, Routine Base: SCODES + 0585 
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: L_NORM NOVALUE = 
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i Functional Description: 


' 
i 
' 
' 
Given feb already atrioged of poas tbe extension fcbs, 
i and which rs - refcnt of epeupee oa 4. ean up the things 
' that eeed cleani "9," up. remove it from the fcb list (we ssoune 
} that is where it is), and deallocate it. 

! 


BEGIN 
MAP 

FCB : REF BBLOCK; 
BASE _REGISTER; 


EXTERNAL ROUTINE 
ACL _DELETEACL, 
CON?_ACCLOCK : 
DEALCOCATE : LINORM; 


LOCAL 
DUMMY; 


if ,fce CFCBSB_TYPE] NEQ DYNSC_FCB 
BUG_CHECK (NOTFCBFCB, ‘not fcb'); 
REMQUE (.FCB, DUMMY); 
if pBeLock CFCB CFCBSR_ORB], ORBSV_ACL_QUEUE) 
ACL_DELETEACL (FCB CFCBSL_ACLFLI, 0); 
if a CONV_ACCLOCK (0, .FCB) 
BUG_CHECK (XQPERR, ‘Unexpected lock manager status"); 
DEALLOCATE (.FCB); 
END; ! of routine NUKE_HEAD_FCB 


sEXTRN ACL _DELETEACL 


oon -ENTRY xe RO FCB, Save nothing 
20 s AC MOVL 
0 A Ad } CMPB ig¢ho}, 
04 A BEQL 
FEFF Cc BUGW 
0000* - WORD ave* NOTE CBF CB! 4> 
50 06 BC OF 10 1$: REMQUE a@FCB, DUMMY 
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; Routine Size: 


71 bytes, 


63 


006 AC 00000080 
0G CF 


00006 ff 


0000G CF 


Routine Base: 


06 =A 
HY 
ae 

06 AC OD 
i 
3 

F Ad 

06 ac 0D 

01 FB 
04 


SCODES + 05¢8 


Besenct945 17:59:09 yarett Btise=s2.ve.0-742. 


MOVL 
88 


#1 99RO). 23 


| sii FCB, =(SP) 
Fes ACL _DELETEACL 


a3. | CONV ACCLOCK 


<BUGS_XOPERR! 4> 
#1, DEALLOCATE 
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OCK_CODE; 
OBAL ROUTINE SET_DIRINDX (FCB) : L_JSB_1ARG = 
1 ee 


Functional Description: 


This routi tests for the pyeonce of a directory index, and 
et the FCBSV_DIR flag accordingly at SCHED ipl, so at fo 
nterlock with the entgctory index handling routine which 

' ay be trying to toss it » and the search _fcb routine, 

! which also runs at sched ipl. 


ROUTINE VALUE: 
rue - if this now a directory fcb eligible for replacement 
alse - otherwise 


FCB : REF BBLOCK; 


LOCAL 
STATUS : INITIAL (0); 


SET_IPL (IPLS_SCHED); 
IF .FCB CFCBSL_DIRINDX) NEQ 0 
THEN 
BEGIN 
FCB CFCB$V_DIR) = 1; 
STATUS = .STATUS ¢ 1; 
END; 
SET_IPL (0); 
. STATUS 
END; ! of routine SET_DIRINDX 


-PSECT SLOCKEDC1S,NOWRT,2 
51 D4 00000 SET_DIRINDX:: 
LRL 


C STATUS > 24 
12 03 DA MTPR #3 #18 > 261 
0080 : TSTL =: 17 F CBD : 241 
BEQL F 
22 ad BISB2 #1, 34(FCB) + 2615 
1 5 Be Bet ts arek star : ci 
8 ? DO 00014 MOVL STATUS, RO > eb2 


3 
CLE -Jjan-1985 17:39: AX-11 Bliss-32 V4.0-742 Pp 41 
voeeb02 ms Sree F4 15:23:98 F11X.BUGSRCICLENUP.B32;1 29° 41) 
05 00017 RSB 
Routine Size: 24 bytes, Routine Base: S$LOCKEDC1$ + 0000 


$2 


Run Time: $3: Re 
Elapsed Time: $3 . 
Lines/CPU Min: 7 

Lexemes/CPU-Min: 53123 
aenery Used: 2 pages 
Compilation Complete 


: 14 424 1 ; 
3; 14 425 1 ! Note that just prior to the SET_DIRINDX routine the psects were ; 
3 146 & § 1 ! changed to the locked psect because the SET_DIRINDX routine must : 
3 14 4 1! be locked. Any routines added at this point will be locked also, 3 
3 rire re $ : so unless they need to be locked, put them prior to SET_DIRINDX. : 
; 1448 430 1_ ; 
: 144 431 1 END ; 
; 14464 432 0 ELUDOM ; 
; PSECT SUMMARY ; 
; Name Bytes Attributes : 
: SCODES 1551 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
: SLOCKEDCIS 24 NOVEC,NOWRT, RD, EXE,NOSHR, LCL. “EL, CON,NOPIC,ALIGN(2) : 
Library Statistics 3 
: woeeeen= Symbols -------- Pages Processing ; 
: File Total Loaded Percent Mapped Time : 
}  .$255$DUA18:(SYSLIBIL18.L32;1 18619 96 0 1000 00:02.0 3 
; COMMAND QUALIFIERS ; 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=L1S$:CLENUP/OBJ=0BJ$:CLENUP MSRC$:CLENUP/UPDATE=(BUGS$: CLENUP) ; 

Size: 1575 code + 0 data bytes : 
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